home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
skunk10
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
29KB
Path: seq!spell
From: DOUG CANNON <dougc@bert.cs.byu.edu>
Subject: v01i012: skunk10 - Skunk v1.0: An animated game of dice skill, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 4247296838 (verify with brik -cv)
Submitted-by: DOUG CANNON <dougc@bert.cs.byu.edu>
Posting-number: Volume 1, Issue 12
Archive-name: skunk10/part01
BEGIN_DOC skunk.doc
Description: SKUNK is a 2 dice game of part strategy, part luck.
This game was written entirely in RPL code
and is loaded with great graphics and animation.
SKUNK may be played with one player and HP as
the opponent, or with two human players.
About me: SKUNK was written by Douglas R. Cannon. I am currently
an electrical engineering student at Brigham Young
University in Provo, Utah. As I am now on summer
vacation, I have had time for such frivolity. Fall
semester begins on Sept 4th and my HP48 fun will
abruptly end.
Douglas R. Cannon
178 Wymount #4A
Provo, UT 84604
(801) 371-2632
dougc@bert.cs.byu.edu
----------------
A long time ago I learned the game of Skunk. I am unaware of the author
of the original idea for the game, I think it (the game) is ancient. I
first wrote this for the HP28s, but have not yet worked it to the point
of being posted. Instead, I have been spending my time re-writing it for
the HP48s. I finished the program today, August 7, 1991.
The game is simple. SKUNK will first give you an options menu:
1) HP as player #1
2) HP as player #2
3) Two players
Only two players can play at one time, and HP will be one of those players
if you so desire. Playing with two people gets boring fast, but the option
is available. Choose an option by pressing 1, 2, or 3. If you choose HP
to be one of the players, then you are given a Skill level menu:
1) Terribly easy
2) Average
3) Challenging
The strategies are as follows: The easy strategy will always roll the dice
5 times before passing. The average strategy will always roll the dice 3
times before passing. Surprisingly enough, this is a good strategy. (See
the RDME section as to why I think so.) and, the Challenging strategy
would be less challenging if I told you what it is. If you can beat this
strategy 6 times out of 10 with a destination score of 200, then I
applaud you.
After choosing a strategy, or if you choose two human players, then you are
given a destination score menu:
1) 100 points
2) 200 points
3) 300 points
This is self-explanitory. Obviously, the winner is the one who gains or
passes this score.
At this point you begin play. Player #1 rolls first, and his options are
to Roll or Pass. By pressing the A key, the dice are rolled, and by pressing
the F key you may pass. Skunk is played with two dice. The object is to
roll as many times as you can without getting "Skunked". One is "Skunked"
when a one is rolled on either die. If no ones are rolled, then the sum of
the two dice is added to the pot. If you are "Skunked" then you lose your
turn and the pot goes to zero. If you choose to pass at some time, then the
current pot is added to your score. The pot then returns to zero, and the
play passes to the next player.
It is extremely disastrous to be "Double Skunked". This is, of course,
when a one is rolled on each die. At this point, the pot goes to zero, your
score goes to zero, and you lose your turn. This is most undesireable.
Now, it is only fair that everyone get the same amount of turns, so if
player #1 should reach or pass the destination score, then player #2 has one
more turn to pass the score of player #1. Thus, if both players reach the
destination score, the winner is the player with the highest score. You can
see the advantages to being player #2. If player #2 reaches the destination
score, and player #1 has not yet reached it, player #2 wins immeadiately.
If both players reach the destination score and are tied, then it will go
into overtime until one player is >= the destination and > the other player's
score.
This is all you should need to know to play the game! I hope everyone enjoys
this game! I cannot compete with those who program the schip stuff, and have
not tried this method as of yet. My main goal of writing this game was to
create some software that has nice animation, is fun, and is written completely
in RPL code.
---------------------
To Install:
No extra software is needed to install skunk1.0
You will need about 25K free before you download it. SKUNK only takes
just over 13K when all setup, but downloading, setup, etc. takes some room.
Simply name the file SKUNK, and download it. There will be a directory
named SKUNK that will be created with all the programs in it. ( At this
point it may be wise to do a RESET. Just hold down the ON key and Press the
C key. This makes sure the maximum available memory is actually available.
My HP only had 7K available at this point, and it was enough.
The first program will be called SETUP. Run this one, and it will set things
up. ( This takes about 10 seconds ). Then SKUNK will be the first program
in the directory. Run this one to play the game!
BYTES:
Before running SETUP #4E85h 17579.5
After running SETUP #6ABFh 13068
About the ABOUT:
You can run the program ABOUT to find out about the author ( that's me )
This software is distributed under the "I don't care ware" system and thus
you can give it to anybody, use any or all programs and shapes elsewhere,
and even change them if it pleases you. Just leave the ABOUT program intact,
and I don't care. Otherwise I do care even though I will never know.
END_DOC
BEGIN_RDME skunk.rdm
Here is a list of all the programs and shapes for anyone who is interested.
Some of these programs (DNUM, NEWS, NANNY) may be useful in other applications.
I have listed each program, it's purpose, and the arguments it needs.
Programs in order of appearance:
--------------------------------
SKUNK Run This. It starts the game ( no arguments )
ABOUT Run This. About the Author ( no arguments )
SKMAIN The master control program 3: destination score
2: skill level (0 if 2 humans)
1: HP player # (3 if 2 humans)
NEWS prints final score menu 2: message (String)
1: coordinates
DNUM Display a number 2: number
1: coordinates
NANNY The international song of the child ( no arguments )
Roll Roll dice ( no arguments )
exit: 2: dice #1
1: dice #2
ERNUM Erase a 25 by 8 spot ( a number ) 1: 1, 2, or 3
TURN Allows a human a turn 2: score (size 2 array)
1: destination score
HPTURN Allows HP a turn ( knows 3 strategies ) 4: score (size 2 array)
3: HP player # (1-2)
2: skill level (1-3)
1: destination score
QUIT Do you REALLY want to quit? ( no arguments )
FANF The "FANFARE" Somebody has won! 4: destination score
3: skill level (0-3)
2: HP player # (1-3)
1: score (size 2 array)
SK Someone is SKUNKED! 3: die #1
2: die #2
1: destination score
DSK Someone is DOUBLE SKUNKED!! 1: destination score
MYTH Well, this really is a myth you know ( no arguments )
Shapes in order of apearance:
-----------------------------
BOARD GROB 131 64 The playing Board
SKSKP GROB 71 31 The big SKUNK shape
DICE A list of 6 GROBs The dots on the dice
WAVES A list of 10 GROBs The wave in the options menu
DOTS A list of 4 GROBs The moving dots in the skill menu
BALLS A list of 10 GROBs The bouncing balls in the destination menu
DESTIN A list of 3 GROBs Shows 100, 200, or 300 destination scores
YOUWON A list of 13 GROBs This creates the YOU WON! graphic
HPWON A list of 13 GROBs This creates the HP WON! graphic
PLANT A list of 3 GROBs The plant
POT A list of 3 GROBs The pot
SHAPES A list of 7 GROBs Various shapes
--------------------------------------------------------------------------
Following is some interesting data I collected while trying to find
three suitable strategies for HP to use. I originally wrote a SKUNK
simulation on the HP to test various strategies and find the best one.
It was much to slow, ( It would take almost an hour to simulate 100 games
without the use of graphics ) so I wrote a version in Pascal. On a 386 it
could simulate 20,000 games in under 15 minutes.
Now, I am not a stats man, but I used this simulator as follows: I would
program a specific strategy, and play it against another. They would play
for 3000 or 5000 games, and whichever strategy won the highest percentage
of games was obviously better. If I played the two against each other again,
they would consistently produce the same percentages. ( As long as the
number of simulated games was high enough. 3000 seemed adequate. )
Strategy #1: Roll once
Strategy #2: Roll twice
Strategy #3: Roll three times ( Used as average skill level )
Strategy #4: Roll four times
Strategy #5: Roll five times ( Uses as terribly easy skill level )
#1: won 35.4% vs. #2: won 64.6% ( 3000 games )
#2: won 52.8% vs. #3: won 47.2% ( 3000 games )
#2: won 51.8% vs. #3: won 48.2% ( 20000 game re-match )
#2: won 60.3% vs. #4: won 39.7% ( 3000 games )
#2: won 68.5% vs. #5: won 31.5% ( 3000 games )
#3: won 66.3% vs. #5: won 33.6% ( 10000 games )
From this we can see that rolling twice always is the best strategy of
the five listed. Rolling 3 times always is not too bad, and I chose this
as the average strategy. It is above average when compared to these, but
only average when compared to better strategies.
Strategy #19: The Challenging strategy.
#5: won 22.1% vs. #19: won 77.9%
#3: won 37.1% vs. #19: won 62.9%
Not too bad, really.
END_RDME
BYTES: #4E85h 17579.5
BEGIN_RPL skunk
%%HP: T(3)A(R)F(.);
DIR
SETUP
\<< CLLCD
"Please wait" 1
DISP
"10 seconds..." 2
DISP BOARD ST\->
'BOARD' STO SKSHP
ST\-> 'SKSHP' STO
DICE ST\-> 'DICE' STO
WAVES ST\-> 'WAVES'
STO DOTS ST\-> 'DOTS'
STO DESTIN ST\->
'DESTIN' STO PLANT
ST\-> 'PLANT' STO POT
ST\-> 'POT' STO
SHAPES ST\-> 'SHAPES'
STO { SETUP ST\-> }
PURGE
\>>
ST\->
\<< \-> S
\<< "" 1 S SIZE
FOR N S N
GET +
NEXT STR\->
\>>
\>>
SKUNK
\<< 0 0 0 0 \-> N
KY HP SK
\<< BOARD {
# 0h # 0h } { # 82h
# 1Ch } SUB PICT
STO { # 0h # 0h }
PVIEW PICT { # 1Fh
# 1Fh } "OPTIONS:"
1 \->GROB REPL PICT {
# 1Fh # 26h }
"1) HP AS PLAYER #1"
1 \->GROB REPL PICT {
# 1Fh # 2Dh }
"2) HP AS PLAYER #2"
1 \->GROB REPL PICT {
# 1Fh # 34h }
"3) TWO PLAYERS" 1
\->GROB REPL
DO
IF KY
THEN 200
.1 BEEP
END
DO 1 'N'
STO+ PICT { # 17h
# 26h } WAVES N GET
REPL N 10
IF ==
THEN 0
'N' STO
END
UNTIL KEY
END 'KY'
STO
UNTIL KY 82
\>= KY 84 \<= AND
END KY 81 -
'HP' STO
IF KY 84 \=/
THEN PICT {
# 17h # 1Eh } # 50h
# 1Eh BLANK REPL
PICT { # 1Fh # 1Fh
} "SKILL LEVEL:" 1
\->GROB REPL PICT {
# 1Fh # 26h }
"1) TERRIBLY EASY"
1 \->GROB REPL PICT {
# 1Fh # 2Dh }
"2) AVERAGE" 1
\->GROB REPL PICT {
# 1Fh # 34h }
"3) CHALLENGING" 1
\->GROB REPL 1 'N'
STO 0 'KY' STO
DO
IF KY
THEN
200 .1 BEEP
END
DO PICT
{ # 14h # 26h }
DOTS N GET REPL 1
'N' STO+ 5 N
IF ==
THEN
1 'N' STO
END
UNTIL
KEY
END
'KY' STO
UNTIL KY
82 \>= KY 84 \<= AND
END KY 81
- 'SK' STO
END PICT {
# 14h # 1Eh } # 5Ah
# 1Eh BLANK REPL
PICT { # 1Fh # 1Fh
}
"DESTINATION SCORE:"
1 \->GROB REPL PICT {
# 1Fh # 26h }
"1) 100 POINTS" 1
\->GROB REPL PICT {
# 1Fh # 2Dh }
"2) 200 POINTS" 1
\->GROB REPL PICT {
# 1Fh # 34h }
"3) 300 POINTS" 1
\->GROB REPL 1 'N'
STO 0 'KY' STO
DO
IF KY
THEN 200
.1 BEEP
END
DO PICT {
# 16h # 26h } BALLS
N GET REPL 'N' 1
STO+ N 11
IF ==
THEN 1
'N' STO
END
UNTIL KEY
END 'KY'
STO
UNTIL KY 82
\>= KY 84 \<= AND
END KY 81 -
100 * SK HP SKMAIN
\>>
\>>
ABOUT
\<< PICT { # 0h
# 0h } BOARD {
# 1Fh # 1Eh }
"BROUGHT TO YOU BY:"
1 \->GROB REPL {
# 1Fh # 24h }
"DOUGLAS R. CANNON"
1 \->GROB REPL {
# 23h # 2Ah }
"BYU, PROVO, UTAH"
1 \->GROB REPL {
# 2Ch # 30h }
"AUGUST 1991" 1
\->GROB REPL { # 0h
# 37h } # 83h # 9h
BLANK REPL { # 3h
# 38h }
"dougc@bert.cs.byu.edu"
2 \->GROB REPL REPL {
# 0h # 0h } PVIEW
DO
UNTIL KEY
END DROP
\>>
SKMAIN
\<<
[ 0 0 ]
1 { { # 45h # 1Eh }
{ # 45h # 26h } } \->
DEST SK HP SC P C
\<< PICT { # 0h
# 0h } BOARD
CASE HP 1
==
THEN {
# 32h # 1Eh } "HP"
2 \->GROB REPL
END HP 2
==
THEN {
# 2Ch # 1Eh }
SHAPES 1 GET GXOR {
# 32h # 26h } "HP"
2 \->GROB REPL {
# 2Ch # 1Eh }
SHAPES 1 GET GXOR
END
END { # 19h
# 38h } DESTIN DEST
100 / GET REPL REPL
DO PICT {
# 2Ch # 1Eh }
SHAPES 1 GET GXOR
IF P HP
==
THEN SC
HP SK DEST HPTURN
ELSE SC P
GET DEST TURN
END MYTH
DUP SIGN DUP
IF
THEN
IF 0 <
THEN P
ERNUM
END SC
P GET + DUP 'SC' P
ROT PUT C P GET
DNUM
ELSE
DROP2
END 3
ERNUM 0 { # 45h
# 2Eh } DNUM P 1 ==
2 1 IFTE 'P' STO
UNTIL SC 1
GET DEST \>= SC 2 GET
DEST \>= OR P 1 ==
AND SC ARRY\-> DROP \=/
AND
END DEST SK
HP SC FANF
\>>
\>>
NEWS
\<< 0 \-> M C A
\<< 1 M SIZE
FOR N PICT
C M N N SUB 1 \->GROB
DUP SIZE DROP 'A'
STO REPL 2000 .005
BEEP C 1 GET A +
'C' 1 ROT PUT
NEXT
\>>
\>>
DNUM
\<< \-> N C
\<< PICT C N 2
\->GROB REPL
\>>
\>>
NANNY
\<< 554 .3 659 .3
740 .075 554 .15
659 .075 659 .15 1
6
FOR N BEEP
NEXT
\>>
Roll
\<< 0 0 \-> D1 D2
\<< RAND 6 * 1
+ IP 'D1' STO RAND
6 * 1 + IP 'D2' STO
PICT { # 5h # 6h }
DICE D1 GET REPL
4000 .03 BEEP PICT
{ # 6Bh # 6h } DICE
D2 GET REPL 4000
.03 BEEP D1 D2
\>>
\>>
ERNUM
\<< PICT # 45h
ROT R\->B # 8h *
# 16h + 2 \->LIST
# 19h # 8h BLANK
REPL
\>>
TURN
\<< 0 0 0 0 0 \->
SC DEST POT D1 D2
KY DONE
\<<
DO KEY NOT
0 IFT
UNTIL NOT
END
DO
DO
UNTIL KEY
END 'KY'
STO
IF KY 35
==
THEN QUIT
END
IF KY 11
==
THEN Roll
'D2' STO 'D1' STO
IF D1 1
== D2 1 == AND
THEN
DEST DSK 1 'DONE'
STO SC NEG
END
IF D1 1
== D2 1 == OR DONE
NOT AND
THEN D1
D2 DEST SK 1 'DONE'
STO 0
END
IF DONE
NOT
THEN
'POT' D1 D2 + STO+
POT { # 45h # 2Eh }
DNUM
END
END
IF KY 16
\=/ KY 11 \=/ AND
THEN 200
.1 BEEP
END
UNTIL KY 16
== DONE OR
END DONE
NOT POT IFT
\>>
\>>
HPTURN
\<< 0 0 0 0 0 \->
SC HP SL DEST KP
POT D1 D2 DONE
\<<
CASE SL 1
==
THEN 5
'KP' STO
END SL 2
==
THEN 3
'KP' STO
END SL 3
==
THEN 1
'KP' STO
END
END
DO 'KP' 1
STO- Roll 'D2' STO
'D1' STO
IF D1 1
== D2 1 == AND
THEN DEST
DSK 1 'DONE' STO SC
HP GET NEG
END
IF D1 1
== D2 1 == OR DONE
NOT AND
THEN D1
D2 DEST SK 1 'DONE'
STO 0
END
IF DONE
NOT
THEN
'POT' D1 D2 + STO+
POT { # 45h # 2Eh }
DNUM
END
IF SL 3
==
THEN SC
HP GET SC HP 1 == 2
1 IFTE GET > 16 23
IFTE POT \<= 0 1 IFTE
'KP' STO
END
IF SC HP
GET POT + DEST \>=
THEN 0
'KP' STO
END
IF HP 2
== SC HP 1 == 2 1
IFTE GET SWAP OVER
DEST \>= AND SWAP SC
HP GET POT + \>= AND
THEN 1
'KP' STO
END
UNTIL KP 0
\<= DONE OR
END DONE
NOT POT IFT
\>>
\>>
QUIT
\<< 0 \-> KY
\<< CLLCD
"Do you REALLY" 2
DISP
"want to quit?" 3
DISP TEXT 1000 .3
BEEP
DO
DO
UNTIL KEY
END 'KY'
STO
IF KY 31
\=/ KY 52 \=/ AND
THEN 200
.1 BEEP
END
IF KY 52
==
THEN KILL
END
UNTIL KY 32
==
END { # 0h
# 0h } PVIEW
\>>
\>>
FANF
\<< 0 1 0 \-> DEST
SK HP SC C WON ME
\<<
IF HP 3 \=/
THEN SC
ARRY\-> DROP > HP 1
== OVER AND SWAP
NOT HP 2 == AND OR
ELSE 0
END DUP
'ME' STO 'HPWON'
'YOUWON' IFTE 'WON'
STO 0 24
FOR N PICT
# 1Eh N R\->B 2 \->LIST
'C' STO C SKSHP
REPL PICT C WON N 2
/ 1 + GET REPL 2
STEP PICT {
# 1Eh # 36h }
SHAPES 6 GET REPL
IF ME
THEN NANNY
ELSE 1 4
FOR N 1 2
FOR O
PICT { # 20h # 1Ch
} SHAPES 5 GET GXOR
10000 .005 BEEP
NEXT
NEXT
END 1 WAIT
PICT { # 1Eh # 3h }
# 47h # 12h BLANK
REPL "FINAL SCORE:"
{ # 1Fh # 0h } NEWS
IF HP 1 ==
THEN {
# 21h # 6h } "HP: "
ELSE {
# 1Fh # 6h } "#1: "
END SC 1
GET \->STR + SWAP
NEWS
IF HP 2 ==
THEN {
# 21h # Ch } "HP: "
ELSE {
# 1Fh # Ch } "#2: "
END SC 2
GET \->STR + SWAP
NEWS
IF HP 3 \=/
THEN
"SKILL: "
CASE SK 1
==
THEN
"EASY"
END SK
2 ==
THEN
"AVERAGE"
END SK
3 ==
THEN
"CHALLENGING"
END
END + {
# 1Fh # 12h } NEWS
END # 1Eh
SC ARRY\-> DROP >
# 5h # Bh IFTE 2
\->LIST 'C' STO
DO KEY NOT
0 IFT
UNTIL NOT
END
DO PICT C
SHAPES 7 GET GXOR
.5 WAIT
UNTIL KEY
END DROP
\>>
\>>
SK
\<< 0 \-> D1 D2
DEST C
\<< PICT {
# 20h # 38h }
SHAPES 3 GET REPL
IF D1 1 ==
THEN { # 2h
# 2h }
ELSE {
# 68h # 2h }
END 'C' STO
1 4
FOR N PICT
C SHAPES 2 GET GXOR
2000 .01 BEEP
NEXT PICT {
# 19h # 38h }
DESTIN DEST 100 /
GET REPL
\>>
\>>
DSK
\<< 1 0 \-> DEST D
C
\<< PICT {
# 22h # 38h }
SHAPES 4 GET REPL
PICT { # 20h # 2h }
SHAPES 5 GET GXOR 1
4
FOR N PICT
# 2h # 66h D * + {
# 2h } + 'C' STO C
SHAPES 2 GET GXOR
2000 .02 BEEP 'D' 1
IF D
THEN STO-
ELSE STO+
END PICT
C SHAPES 2 GET GXOR
1000 .02 BEEP
NEXT PICT {
# 20h # 2h } SHAPES
5 GET GXOR PICT {
# 19h # 38h }
DESTIN DEST 100 /
GET REPL
\>>
\>>
MYTH
\<< RAND 40 * IP
IF 1 ==
THEN
IF RAND 2 *
IP
THEN 2 3
FOR N
PICT { # 0h # 1Eh }
PLANT N GET REPL
NEXT 2 1
FOR N
PICT { # 0h # 1Eh }
PLANT N GET REPL -1
STEP
ELSE 2 3
FOR N
PICT { # 67h # 1Eh
} POT N GET REPL
NEXT 2 1
FOR N
PICT { # 67h # 1Eh
} POT N GET REPL -1
STEP
END
END
\>>
BOARD {
"GROB 131 64 0FFFFF10040E70CFCF00E70000CFFFF700CFFFFF700A02404848082400"
"00FFFFFF10E30008F0051A504B4B0CA50008F0000E30E00000E08E2A501B4B0AA50108"
"30000830700000C14F5A582B4B09A5820C10000070700000C1ABB8545A4B8AA5450C10"
"00007030000081D5795ABA4B4BA5AB0C0000006030000089EAE25D5A4BABA0D50C0000"
"00603000008571D5DE2B4BCB22E20C0000006030000089E2A2571B4BEB05610C000000"
"6030000081D5499B4B4B6B8A800C0000006030000081AB88D54B4B2B47500C00000060"
"300E0081471AF24B4B4BAB200C00830060300F10818E2A714B4B6BD5100C00C7006030"
"0F10810D5AF24B4B4BE2200C00C70060300F10812AB8D54B4B4379500C00C70060300E"
"008154799B4B4B4BB8B00C0083006030000089A8E2571B4B4F54710C00000060300000"
"8571D5DE2B4B4F2DE20C0000006030000089EAE25D5A4B4795D50C0000006030000081"
"D5795AB84B4B85AB0C0000006030000081ABB854797B45A5471C00000060300000814F"
"5A58E20B42A58E2C00000060700000C18E2A50D5EB41A50D5C10000070700000C1051A"
"50ABCBC0A50ABC10000070E00000E00A024047184024047930000830E30008F0040E70"
"8ACF00E708A8F0000E30CFFFFF70000000050000000050FFFFFF100FFFFF1000000002"
"0000000020CFFFF700000000000000000000000000000000000000000F10000082480C"
"1000000000FF100000008F3000008268022000000000FF10000000C7300000C7481230"
"00000000EF00000000E120000082483A2000000000EF00000C30F0000000C748162000"
"000000FF10000E7078F00000824802200000000CFF70000F703CF1000082E80C100000"
"0007BDE1008FF83EF3000000080000000000CBD6B7008FF81F8300016D1B0C10000000"
"ED6BDE0081F8930300036DEA0220000000FFFFFF1080CDC101000728FA123000000030"
"000810008DC000000F6D3B3A20000008FFFFFF30878D6C70000728DB1620000008D6D6"
"D630CF9D6FF000036DEB02200000086D6D6D20EFBDEFF000016D0A0C10000008BBBBBB"
"30E33FFFF0000000080000000008D6D6D630E16F70F1000F83F90C100000086D6D6D20"
"ECFFF7C1000154480220000008FFFFFF30CCF0E7810001544812300000003000081048"
"FFF381000154483A20000000FFFFFF1008308380000F44481620000000ED6BDE0000FF"
"F180000144480220000000CBD6B70000E0E000000183480C100000000FBDE100008F30"
"0000000000000000000008FF3000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7000000010"
"00000000000000000040000000F833C0100000000000000000004F83E830FD73C01000"
"00000000000000004FD7FD70BD63C0100000000000000000004BD63C00BD63C0100000"
"000000000000004BD6FC30FD63C0100000000000000000004FD7E970FC63C010000000"
"0000000000004FC78160BD7FD71000000000000000000043C6FD70B93FD71000000000"
"000000000043C6E830"
}
SKSHP {
"GROB 71 31 0000000000000000000000000000000000000018F10F3F308F100008280"
"1012120A010000458610D2D20B610000AB8614C2D28A614000D7961AC2D24A61A008EE"
"261592D2AA6151047D569EA2D2DA69E20ABAB45792DAEA24710D5475BBC2D2FA88B00A"
"B8A4D5C2DAF24950047156E2D2DAD2A22008E22671D2DAC2D51000D58EB0D2D2DAEA00"
"00AB8E50D2DAD6750000479EB0D2D2DAB800088E2671D2D2DC5610041D56E2D2D2DE2E"
"200A2AB4D5C2D2D71D500D5475BBC2D2DB4BB00ABAB45792D2D56571047D569E22D2D2"
"69E208EE261D5ED25961D500D7961AB0C29861AB00AB861479F258614710458618E2F2"
"38618E20828010D50218010D50018F10A2F308F10A2000000041000000041000000080"
"000000080" }
DICE {
"{ GROB 19 17 00000000000000000000000000000000000000700008F00008F00008F"
"000007000000000000000000000000000000000000000 GROB 19 17 000830000C700"
"00C70000C70000830000000000000000000000000000000000000000000E00000F1000"
"0F10000F10000E00000 GROB 19 17 000830000C70000C70000C70000830000000007"
"00008F00008F00008F000007000000000E00000F10000F10000F10000E00000 GROB 1"
"9 17 E00830F10C70F10C70F10C70E0083000000000000000000000000000000000000"
"0000000E00830F10C70F10C70F10C70E00830 GROB 19 17 E00830F10C70F10C70F10"
"C70E0083000000000700008F00008F00008F000007000000000E00830F10C70F10C70F"
"10C70E00830 GROB 19 17 E07830F9FC70F9FC70F9FC70E0783000000000000000000"
"0000000000000000000000000E07830F9FC70F9FC70F9FC70E07830 }"
}
WAVES {
"{ GROB 6 20 70E0C1838383C1E0707070E0C1838383C1E07070 GROB 6 20 E0C1838"
"383C1E0707070E0C1838383C1E0707070 GROB 6 20 C1838383C1E0707070E0C18383"
"83C1E0707070E0 GROB 6 20 838383C1E0707070E0C1838383C1E0707070E0C1 GROB"
" 6 20 8383C1E0707070E0C1838383C1E0707070E0C183 GROB 6 20 83C1E0707070E"
"0C1838383C1E0707070E0C18383 GROB 6 20 C1E0707070E0C1838383C1E0707070E0"
"C1838383 GROB 6 20 E0707070E0C1838383C1E0707070E0C1838383C1 GROB 6 20 "
"707070E0C1838383C1E0707070E0C1838383C1E0 GROB 6 20 7070E0C1838383C1E07"
"07070E0C1838383C1E070 }"
}
DOTS {
"{ GROB 9 19 C000E100CC000E106C00F0006C000E106C00F0006C000E106C00F0006C"
"000E10CC00E100C000 GROB 9 19 8100C30081006C00FE106C0000006C00FE106C000"
"0006C00FE106C0000006600FF0066000000 GROB 9 19 030087006300F0006C000E10"
"6C00F0006C000E106C00F0006C000E106C00F000630087000300 GROB 9 19 0000660"
"0FF00660000006C00FE106C0000006C00FE106C0000006C00FE106C008100C3008100 "
"}" }
BALLS {
GROB 7 18 C1E3E3E3C10000C1632263C1C1E3E3E3C100
GROB 7 18 E3E3E3C100000000C16363E3E3E3E3C10000
GROB 7 18 F7E3C1000000000000C163F7F7E3C1000000
GROB 7 18 E3E3E3C100000000C16363E3E3E3E3C10000
GROB 7 18 C1E3E3E3C10000C1632263C1C1E3E3E3C100
GROB 7 18 00C1E3E3E3C1C1632263C10000C1E3E3E3C1
GROB 7 18 0000C1E3E3E3E36363C100000000C1E3E3E3
GROB 7 18 000000C1E3F7F763C1000000000000C1E3F7
GROB 7 18 0000C1E3E3E3E36363C100000000C1E3E3E3
GROB 7 18 00C1E3E3E3C1C1632263C10000C1E3E3E3C1
}
DESTIN {
"{ GROB 81 8 0000000E0F3E70000000000000000B8255A0000000000000008A8255A0"
"000000000000000A8255A0000000000000000A8255A0000000000000000A8255A00000"
"00000000000A8255A0000000000000008F3F3E7000000000 GROB 81 8 0000000F3E7"
"CF0000000000000008055AA41000000000000000055AA41000000000000000835AA410"
"00000000000000705AA41000000000000008205AA41000000000000008205AA4100000"
"0000000008F7E7CF000000000 GROB 81 8 0000000F3E7CF0000000000000008055AA"
"41000000000000000055AA41000000000000000E35AA41000000000000000055AA4100"
"0000000000000055AA41000000000000008055AA41000000000000000F3E7CF0000000"
"00 }" }
YOUWON {
GROB 1 1 00
GROB 1 1 00
GROB 1 1 00
GROB 71 2 00000000000300000000C100000003000070
GROB 71 2 C16F9F91E913F9F91363B9FC81B9999FC813
GROB 71 2 6ED0F681BD9D0FED030E703681CED603ED81
GROB 71 2 0C6033C0CED6036F810C6033C0CB76036F81
GROB 71 2 066813E0CB7681668106EC03F0C93EC03600
GROB 71 2 03C70ED1C81C7C1CC0E10000000000000C00
GROB 71 2 000000000000000830000000000000000000
GROB 1 1 00
GROB 1 1 00
GROB 1 1 00 }
HPWON {
GROB 1 1 00
GROB 71 2 0000000000000000000F7BFFF00000000000
GROB 71 2 0F730EF000000000000F1308F00000000000
GROB 71 2 078100E00003000000078100E00003000070
GROB 71 2 038100C0E913F9F91303C7C7C0B9999FC813
GROB 71 2 01CCCC80BD9D0FED0301CCCC80CED603ED81
GROB 71 2 01666680CED6036F8101666680CB76036F81
GROB 71 2 0366E3C0CB76816681030030C0C93EC03600
GROB 71 2 070030E0C81C7C1CC0070030E00000000C00
GROB 71 2 0F1818F000000008300F781EF00000000000
GROB 71 2 0FFBDFF00000000000000000000000000000
GROB 1 1 00
GROB 1 1 00 }
PLANT {
"{ GROB 30 24 00000F1000008F300000C7300000E1200C30F0000E7078F00F703CF18"
"FF83EF38FF81F8381F8930380CDC101008DC000878D6C70CF9D6FF0EFBDEFF0E33FFFF"
"0E16F70F1ECFFF7C1CCF0E78148FFF3810830838000FFF18000E0E000008F3000 GROB"
" 30 24 00008F000000CF100000EB100C30F0100E7878F00F783CF18FF81EF38FFC1F8"
"381FC830380CDC101008DC000878D6C70CF9D6FF0EFBDEFF0EFBDEFF0E17FF0F1E06F7"
"0C1CCFFF7814CF0E78108FFF3800830838000FFF10000E0E000008F3000 GROB 30 24"
" 0000C7000000EF000C30FD000E7878F00F783CF18FF81EF38FF81F8381ED170380CD9"
"30100CDD100878DEE70CF9D6FF0EFBDEFF0EFBDEFF0E1FDE0F1E06F70C1C06F70814CF"
"FF7810CF0E78008FFF3800830830000FFF10000E0E000008F3000 }"
}
POT {
"{ GROB 27 24 00EF300000EF300000CF100000CF100000EF300008FFF0000E6BD3008"
"7BD6F00CBD6BD10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDADAD6"
"0DADADA50FFFFFF7060000030EFFFFF30CBD6BD1087BD6F000E7BD30000FF7000 GROB"
" 27 24 000000000000000000EF300000EF300000CF100000CF100000EF3000087BF00"
"00FBDE700CBD6BF10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDADA"
"D60DADADA50FFFFFF7070000070EFFFFF30EBD6BD30C7BD6F100FFFF700 GROB 27 24"
" 0000000000000000000000000000000000EF300000EF300000CF100000CF100000FF7"
"0000EBDE300CBD6BF10EFFFFF3060000030FFFFFF70BDADAD60DADADA5077777770BDA"
"DAD60DADADA50FFFFFF7070000070EFFFFF30CBD6BF100EFFF300 }"
}
SHAPES {
"{ GROB 18 15 1EFF303EFF307EFF30FEFF307EFF303EFF301EFF300000001EFF303EF"
"F307EFF30FEFF307EFF303EFF301EFF30 GROB 25 25 0FFFF100CFFFF700EFFFFF00E"
"FFFFF00FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF1"
"0FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFFF10FFFFF"
"F10EFFFFF00EFFFFF00CFFFF7000FFFF100 GROB 67 8 E7ECD9B377EEFDF170DFAE49"
"A2557AF5F25050A749A65D3A049250D7A349AE5D1A749250EBA349AE5D1A7492700AA7"
"49AA5D3A049200FBAE4FA2557AF5F270E7EC9F9377EEFDF170 GROB 63 8 F7CFC9BF3"
"70EF937DBA759AE550AF9255AA459A2550A08255AA459AE350A78255AA459AE350A783"
"75AA459A2550A0000DBA75FAE5DFAF937F7CF8F9F3FFEF937 GROB 67 25 040810030"
"3008100000E08100303008100000F18100303008100008B3810120302810100C178183"
"20303818300E0E01C12038380C10070C11E0303C300E000E080170303E3006000C1089"
"30303630200008308D10303230700000708F00303038300000E0870030303C100000C1"
"8F0030303E000000838D103030378100000789303030B38300020E01703030F1070007"
"0C11E03030F01E000E0E01C12030781C100C178183003038183008B381070030181070"
"00F1810E00300810E000E0810C1E300810C1004081083C300810830000000070000000"
"070000000020000000020 GROB 71 1 FFFFFFF9CFFFFFFF94 GROB 71 7 EFFFFFFF1"
"000000004FFFFFFFF339AC23E64FFFFFFFF3292BC2512FFFFFFFF394294A312FFFFFFF"
"F3D29429800FFFFFFFF3B19429901EFFFFFFF1000000000 }"
}
END
END_RPL